home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 8 / cdrt08.iso / mac / Shareware / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_136_RTF Text < prev    next >
Encoding:
Text File  |  1994-12-12  |  2.1 KB  |  58 lines
  1. ItemType: WIND
  2. Rect: 162,76,478,290
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: TRUE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: RTF Text
  11. TextSize: 12
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then┬  get licenseCheck()┬  wsSend wdID,"1","GetBGFieldText"┬  wsSend wdID,"2","GetBGFieldText"┬  ┬else if objValue="Close" then┬  put i1_Text of window wdName into editText┬  put i2_Text of window wdName into holdText┬  if editText ¡ holdText then┬    answer "Save changes before closing?" with "No" or "Yes"┬    if it is "Yes" then┬      wsSend wdID,"1","SetBGFieldText"┬      get wsGet(wdID,"1","Name")┬      send closeField to fld it┬    end if┬  end if┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent┬┬┬┬┬
  13. Params: i0_Name┬i1_Name┬i2_Name
  14.  
  15. ItemType: TEXT
  16. Rect: -1,-1,317,195
  17. TextFont: Geneva
  18. AutoSize: FALSE
  19. GrowItem: TRUE
  20. Name: theText
  21. WhiteColor: -13108,-1,-1
  22. Scrolling: TRUE
  23. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  24. Selection: 0,32767
  25. Balloon: Text can be edited only when it is unlocked. Supports RTF (rich text format) in the display mode. Does not support RTF in the edit mode.
  26.  
  27. ItemType: TEXT
  28. Rect: 107,123,111,139
  29. TextFont: Geneva
  30. Visible: FALSE
  31. Name: theText Holding
  32. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  33. Selection: 0,32767
  34.  
  35. ItemType: CHK
  36. Rect: 0,199,65,211
  37. TextFont: Geneva
  38. TextSize: 9
  39. Name: LockText
  40. Hilite: TRUE
  41. Balloon: Lock or unlock current display.
  42. Script: set i1_LockText of window wdName to objValue┬
  43.  
  44. ItemType: PUSH
  45. Rect: 190,197,270,213
  46. TextFont: Geneva
  47. TextSize: 9
  48. Name: OK
  49. AutoClose: TRUE
  50. Balloon: Click on this button to close the current window.
  51.  
  52. ItemType: PUSH
  53. Rect: 90,197,170,213
  54. TextFont: Geneva
  55. TextSize: 9
  56. Name: Save Now
  57. Balloon: Click on this button to save the contents of current window now.
  58. Script: wsSend wdID,"1","SetBGFieldText"┬wsSend wdID,"2","GetBGFieldText"┬get wsGet(wdID,"1","Name")┬send closeField to fld it